home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / dmsii.s.lha / Include / Standard < prev   
Encoding:
Text File  |  1992-12-21  |  3.0 KB  |  118 lines
  1. ************************************************************************
  2. ******************* Standard Rev 2.  Made 21/03-93 By Newtec ***********
  3. ************************************************************************
  4. ************************************************************************
  5. ******************* Functions:                               ***********
  6. *******************                                          ***********
  7. ******************* SendError()                              ***********
  8. ******************* SendOK()                                 ***********
  9. ******************* OpenLibs(Version)(d0)  ;Opens Dos,Int,Gfx,Util,GadT*
  10. ******************* CloseLibs()            ;Close Dos,Int,Gfx,Util,GadT*
  11. ************************************************************************
  12.  
  13.         ;incdir    'Code:include/'
  14.         ;include 'HandleWB'
  15.         ;include 'Standard'
  16.         ;
  17.         ;bsr    InitWB
  18.         ;bsr    OpenLibs
  19.         ;beq    ExitWB
  20.         ;...
  21.         ;bsr    CloseLibs
  22.         ;clr.l    d0
  23.         ;bra    ExitWB
  24.  
  25. ;----------------------------------------------------------------------
  26. SendError:    clr.l    d0
  27.         rts
  28. SendOK:        moveq    #-1,d0
  29.         rts
  30. ;----------------------------------------------------------------------
  31. OpenLibs:    move.l    d0,d7        ;Save Version #
  32.         move.b    d7,LibVer
  33.         move.l    4.w,a6
  34.  
  35.         lea.l    DosName(pc),a1
  36.         move.l    d7,d0        ;Version
  37.         jsr    -552(a6)    ;OpenLib
  38.         tst.l    d0
  39.         beq.b    .BadLibs
  40.         move.l    d0,DosBase
  41.  
  42.         lea.l    IntName(pc),a1
  43.         move.l    d7,d0        ;Version
  44.         jsr    -552(a6)    ;OpenLib
  45.         tst.l    d0
  46.         beq.b    .BadLibs
  47.         move.l    d0,IntBase
  48.  
  49.         lea.l    GfxName(pc),a1
  50.         move.l    d7,d0        ;Version
  51.         jsr    -552(a6)    ;OpenLib
  52.         tst.l    d0
  53.         beq.b    .BadLibs
  54.         move.l    d0,GfxBase
  55.  
  56.         lea.l    UtilName(pc),a1
  57.         move.l    d7,d0        ;Version
  58.         jsr    -552(a6)    ;OpenLib
  59.         move.l    d0,UtilBase    ;Don't care if it wouldn't open!
  60.  
  61.         lea.l    GTName(pc),a1
  62.         move.l    d7,d0        ;Version
  63.         jsr    -552(a6)    ;OpenLib
  64.         move.l    d0,GTBase    ;Don't care if it wouldn't open!
  65.         bra.b    SendOK
  66. .BadLibs:    move.l    4.w,a6
  67.         lea.l    IntName(pc),a1
  68.         jsr    -408(a6)
  69.         move.l    d0,a6
  70.         moveq    #0,d0            ;Alertnum
  71.         move.l    #30,d1
  72.         lea.l    .BadLibsMsg(pc),a0
  73.         jsr    -90(a6)            ;DisplayAlert
  74.         bra.w    SendError
  75.  
  76. .BadLibsMsg:    dc.b    0,212,17,'Your Kickstart Is Too Old !',0
  77.         even
  78. ;----------------------------------------------------------------------
  79. CloseLibs:    move.l    4.w,a6
  80. ;        move.l    DosBase(pc),a1
  81. ;        cmp.l    #0,a1
  82. ;        beq.w    .1
  83. ;        jsr    -414(a6)    ;CloseLib - Don't close Dos if the
  84.                     ;tool is quitted with Exit() !!
  85. .1:        move.l    IntBase(pc),a1
  86.         cmp.l    #0,a1
  87.         beq.b    .2
  88.         jsr    -414(a6)    ;CloseLib
  89.  
  90. .2:        move.l    GfxBase,a1
  91.         cmp.l    #0,a1
  92.         beq.b    .3
  93.         jsr    -414(a6)    ;CloseLib
  94.  
  95. .3:        move.l    UtilBase(pc),a1
  96.         cmp.l    #0,a1
  97.         beq.b    .4
  98.         jsr    -414(a6)    ;CloseLib
  99.  
  100. .4:        move.l    GTBase(pc),a1
  101.         cmp.l    #0,a1
  102.         beq.w    SendError
  103.         jmp    -414(a6)    ;CloseLib
  104. ;----------------------------------------------------------------------
  105. DosName:    dc.b    'dos.library',0
  106. IntName:    dc.b    'intuition.library',0
  107. GfxName:    dc.b    'graphics.library',0
  108. UtilName:    dc.b    'utility.library',0
  109. GTName:        dc.b    'gadtools.library',0
  110. LibVer:        dc.b    0        ;Version of libraries
  111.         even
  112. DosBase:    dc.l    0
  113. IntBase:    dc.l    0
  114. UtilBase:    dc.l    0
  115. GTBase:        dc.l    0
  116. GfxBase:    dc.l    0
  117.         even
  118.